Imports CrystalDecisions.CrystalReports.Engine

Public Class FrmCrNganHang
    Private customerReport As ReportDocument
    Private Sub FrmCrNganHang_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sqlQuery As String = "SELECT * FROM tbl_nganhang"
        Dim reportPath = Application.StartupPath & "\" & "crNganHang.rpt"
        customerReport = New ReportDocument()
        customerReport.Load(reportPath)
        customerReport.SetDataSource(moduleReportConfig.GetDataTable(sqlQuery))
        customerReport.SetParameterValue("company", globalVariale.COMPANY)
        customerReport.SetParameterValue("address", globalVariale.ADDRESS)
        Me.CrNganhangview.ReportSource = customerReport
    End Sub


End Class
